LPP 


wnn MNMMMW 
Mnn MNNMMMWM 
mun nnn nnn 
mw nWn MMn 
nnn nnn MMW 
wnn nnn WMwn 
mwnwn nnn nnn 
mnn nnn MWwn 
MNWNMnw nnn 
MNMMNMn nnn 
uu udu ud 
uuu wud 
tu Us ad wmuus Wud 
Usui tas ts Us 
uuu WwWiusus ad ls 
uuu wus gud a 
wud wuss udu 
udu usu udu 


aou4 


an44 
444 
444 
ai44 
444 
ai 
s444 
ca a ld dd ad od dd od dd J 
a ee ee ee ee 
aaaaaa 
aaaqaaaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aqaaaaaaaaaaaaagaaaaana 
aaaagaaqaaaaaaaaqaaaaaaaa 
LSS Se eee eee ee ee ee Se eS 
ZFETFSFTTTSISITSISSTSITETSISETSTEET=SE 
+3 33 
zee 


EEE 
SEEPEEESEEEEESEESEEEE 
socinichenrtaiane |< ‘nina 

< 


<< HC OO << 
<< OC OK OC OK =< 
<< << 
=< x << 
x< << 
=< x< 
=< x< << 
<< =< x< 
<< OK Oe << OK OK OK OK 
<< OK OC OK << OC OC OK OK 
aa Us Ly 
dud Aas hs 
Us td kd Wud ws a 
Abs tad LAS Wid ud usu 
bd La Wwuus Ud a 
pewrVeaes) Ww tad ud 
wud du hd ad 
wud td a wWiusus 


Soe eee eet eet eeteotreyeereelvelvelvelvelvulververververrs) 
Md ld 


**F 1LE**1D**_LABIOCON | LAE 
eh 
'y 
| 1 ¢ 
| ' qd 
. 4 
e 4 
! 1 
LL AAAAAA BBBBBBBB IIIIII1 000000 cccccccc 000000 NN NN 
LL AAAAAA BBBBBBBB IIII111 000000 ccecccccc 000000 NN NN 
LL AA 6B BB I] 00 00 cc 00 00 NN NN 
LL AA AA BB BB II 00 oo CC 00 00 NN NN 
LL AA AA BB BB II 00 oo cc 00 00 NNNN NN 
LL AA AA BB I] 00 00 CC 00 00 NN N 
Ls. AA AA ®688BBBBB II 00 oo cc 00 00 NN NN NN 
LL AA AA I] 00 oo CC 00 00 NN NN NN : 
LL AAAAAAAAAA BB BB I] 00 oo cc 00 06 NN NNNN H 
LL AAAAAAAAAA BB 8B II 00 oo CC 00 00 NN NNNN G 
LL AA AA BB BB I] 00 00 CcC 00 00 NN NN eee ; | 
LLLLLLLLLL AA AA BBBBBBBB IIIIII 000000 cccccccc 000000 NN NN —— 
LLLLLLLLLL AA AA BB8BBBBBB IIII1 000000 cccccccc 000000 NN NN er 
} 
FRFFFFFFFFF 000000 RRRRRRRR D 
FFFFFFFFFF 000000 RRRRRRRR : 
FF 00 0O RR RR 
FF 00 00 RR RR 
FF 00 00 RR RR 
FF 00 00 RR RR 
FFFFFFFF 00 00 RRRRRRRR 
FRFFFFFFF 00 00 RRRRRRRR 
FF 00 00 RR RR 
FF 00 00 RR RR 
FF 00 0O RR RR : 
FF 00 00 RR RR : V 
FF 000000 RR RR 
FF 000000 RR RR | 
| 
| 
| 
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‘File: LABIOCON.FOR 
} Version ‘v04-000' 


eee RRR ERE AREA A AAA AEREEEAA AERA EEA 


‘* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


ie THIS SOFTWARE . tae cite” ure A LICENSE AND MAY BE USED AND othe 


® 
® 
® 
® 
® 
® 
® 
4 t 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
tt TRANSFERRED. ps 

® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!t CORPORATION. ® 
. * 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 

af 

® 

* 


SORE REEREEE RAE RARER EERE RAE AERA AAA AAA 
' 


Program LABIO_CONNECT 


' Define Labio data structures 
Include *LABCHNDEF .FOR' 


! Mailbox Definitions 
Include ‘LABMBXDEF .FOR‘ ‘Defines Mailbox Data Structures 
! System Service Definitions 
Logical*4 SYSS$CREMBX,SYSSASSIGN 
Logical*4 SUCC 
External ses; ENDOFFILE 
! Subroutine Definitions 
Integer Spey ig bey | 


a. 
Integer READ _MAILBOX rte 


“ABORT , ALLOCATE -DEALLOCATE 
Integer CHECR_PID,RETURN 


STLEOR AABER } oA SOR 


! Command Data Structures 


Parameter COMMAND = 5 
Character*15 cORMAND D.C COMMAND aE aa, COMMAND ) 
pete COMMAND _ /* CONREC 


“*DISCONNEET*, 
1 "ABORT 
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1 "ALLOCATE' 
1 "DEALLOCATE'/ 


Map to the Global Data Section ‘LABIO COMMON’ 
And Define the Commom Event Flag CLusfers 
Request write access to the data ert 


Call LABIO_INIT ( 1 ) 


See if mailbox LABIO_ og Sette by, attempting to assign it, if 
it does not exist, create it. This mailbox is used to communicate with 
other LABIO processes. 8 it to processes within this group. 


Toe hss tt he A Laie CONNECT’ ,MBX_CHANNEL,,) 
-not. 
ye ME 70s eal *MBX _CHANNEL,,,%Val('FDOO'x),,*LABIO_CONNECT") 
not. 
: P 7 ae FATAL_ERROR( SUCCESS, ‘Creating mailbox') 
n 


! Tell other processes that we're ready to go. 
Call SYSSSETEF( Zval( EF_CONNECT ) ) 


M1 
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Get a command from a requesting processes 
i0 Call READ_MAILBOX 'Get a message 
Call CONNECT CHECK 'Check the database to clear 
‘any deleted processes. 
If 1/0 status is EOF then process has terminated, ABORT it. 
If ( MBX_IO_STATUS .eq. %Loc(SS$_ENDOFFILE) ) Go To 23 
| Decode characters as a command 


If ( MBX MESSAGE L_.eq. 0 ) Go To 10 
| 
| 
| 


Decode (MBX SMESSAGE ,100, max o MESSAGE, ERR=10) COMMAND 
Search Command Table for Command 

Do 11 COMMAND_INDEX = 1,MAX_COMMAND 

If( COMMAND .eq. COMMAND _ TABLE (COMMAND_INDEX) ) Go To 12 
11 Continue 

Go To 13 'ILLegal command 
Dispatch to correct routine 


‘ a | 
i If we get here, it's an unknown command | 
13 Call LABIO_LOG(-1) 


; CONNECT command 


21 RETURN_CODE = CONNECT (MBX PID) 

Call ATKNOUL EDGE ( RETURN_CODE ) ‘Acknowledge the request 
; Call LABIO_LOG ( RETURN_CODE ) 'Log the acknowledgement 
Disconnect if was bad connect 


If (RETURN_CODE .ne. 0 ) Call DISCONNECT(-1) 
Go To 10 


DISCONNECT Command 


DISCONNECT (MBX_PID) 
( RETURN_CODE ) 'Log the acknowledgement 


| 
; ABORT command 


23 RETURN CODE = ABORT (MBX, PID) 
Go To & 


ALLOCATE command 


24 RETURN CODE = ALLOCATE (MBX_PID) 
Go To & 


1 
; DEALLOCATE command 


25 RETURN CODE = DEALLOCATE (MBX_PID) 
Go To 40 


‘ 
Return status in first character position 


40 Call ACKNOWLEDGE( RETURN CODE ) : Acknowledge the request 
galt LABgIO. LOG( RETURN_CODE ) 'Log the acknowledgement 
° 


! 
: Formats 


100 Format (A) 
End 


N 
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Subroutine CONNECT_CHECK 
This routine checks to make sure all processes 
connected (in CONNECT _BLOCK) actually exist. 
If a process has been deleted, this routine 
removes it from the database by calling ABORT 

Include ‘LABCHNDEF.FOR' 

Logical*4 SYSSGETJPI 


Do 10 I = 1, MAX_PID 
PID = CONNECT_BLOCK(I,1) 
If ne. en 
: If snot. SYSSGETJPI(XVal(2),PID,,C,..) ) Call ABORT( PID ) 
n 
10 Cont inue 


Return 
End 
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Logical*4 Function READ_MAILBOX 


This routine reads the LABOI_CONNECT mailbox 
Returns when a message is ready 


| 
External, 108 READVBLK | 
Include ‘LABMBXDEF.FOR' 
Logical*4 SYS$Q10W, SUCCESS 


Read for a message from another process 


MBX eae eREADVBLK) 
MBX MESSAGE (1) 


READ MAILBOX = SUSSaz0M vel cwex CHANNEL) ,%Val (MBX_READ) , 
1 LAC iM MESSAGE) TD 
Return 


End 


Logical*4 Function WRITE_MAILBOX(MBX_CHAN,MESSAGE ,MESSAGE_LENGTH) 
' This routine writes a eopees to a mailbox 
: Input are the MBX channel, the message, and message length 

External 10$_ WRITEVBLK, 1OSM_NOW 

Logical SYS$010 


Write response buffer of MBX 


MBX_WRITE =%Loc(10$_WRITEVBLK) +%Loc (10$M_NOW) 


WRITE_MAILBOX = SYS$Q10(,%Val(MBX_CHAN) ,%Val(MBX_WRITE),,,, 
1 MESSAGE ,&Val (MESSAGE_LENGTH),,,,) 


99 Return 
End 
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| LABIOCON. FOR; 1 | 


Logical*4 Function OPEN_MAILBOX(MAILBOX_CHAN,MAILBOX_NAME ) 

: This routine opens mailbox indicated by MAILBOX_NAME. It returns 
' the VMS channel number assignde to it. The mailbox name can be 
! padded on the right with blanks. 
Character*(*) a | 

| 


Integer MAILBOX _CHA 
Logical*4 SYSSASSTGN, SUCCESS 


: Determine length of mailbox name string 


MAILBOX _NAME _L=Index(MAILBOX_NAME,' ')=1 
If (MAICBOX_NAME_L .Lt. 0 ) MAILBOX_NAME_L=Len(MAILBOX_NAME) 


Assign a channel to mailbox 
Return status to caller 


| 
OPEN_MAILBOX =SYSSASSIGN(MAILBOX_NAME (:MAILBOX_NAME_L) ,MAILBOX_CHAN, ,) 
| 
| 
! 
| 


Return 


End 
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! an acknowledge code (ACK_CODE). The acknowle 


Subroutine ACKNOWLEDGE (ACK_CODE) 


This routine acknowlegdes a request of process, by return the 

command string the process sent us. The ere is preceded 
gement is sent 

via the mailbox the the Sending processes had created. 

If that process has not connected to us, we do nothing. 


Include "LABCHNDEF.FOR' 


Logical*4 WRITE_MAILBOX 


Include "LABMBXDEF .FOR' 
Integer CONNECT INDEX, CHECK_PID,ACK_CODE 


If process is not in CONNECT_BLOCK, do not respond. 
CONNECT_INDEX = rp tatty PID) 
If (CONNECT_INDEX .ne. 0 ) 
Encode( MEX X_RESPONSE D100 MBX are a ACK_CODE 
MAILBOX = CONNECT BLOCK CONNECT INDE 


Call WRITE _MAILBOR( MAILBOX, MBR_ RESPON SE, 
End If mma _MESSAGE— Lt + MBX _RESPONSE a a 
n 


Return 


100 Format ( I2 ) 


End 


F 11 
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’ Subroutine LABIO_LOG( CODE ) 
i This routine a te a tits that has been processed. The message 
! is written tot file, along with the time, hg ea 1D. 10 status | 
' word and the A.A. Sength. This routine opens the log f 
i if it hasn't been opened. 

lmatlude "LABMBXDEF .FOR* 

robe th TIME 

= ee LOG * sales 
eger CODE 

Data LOG_OPEN/.false./ 

Call SYSSASCTIM(,TIME,,) 'Get the date and time 
' 


Open Log file if this is the first time thru 


If € «not. LOG_OPEN ) Then 
ve : ly = at ae *"LABIO_LOG', Type="Unknown', Access = ‘Append') 


. Airitect, "1003 "TYNE, * Labio Log Opened’ 

10 @rite(1,200) TIME,MBX_PID,MBX_I10 ol pe MBX _MESSAGE_L, 
1 CODE, (MBX MESSAGE (IJ, 1 1, MBX MESSAGE _LY 
Return 


100 Format( 2A ) 
200 Format( A,210,210,110/13,128A1 ) 


End 


H 1 
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Integer Function CONNECT(REQ_PID) 
Include "LABCHNDEF.FOR' 


Include ‘LABMBXDEF .FOR' 
Character*65 MAILBOX_NAME 


Integer*4 REQ PID,CHECK_PID 
Logical*4 OPER_MAILBOX ~ 


CONNECT = 1 
Find an empty CONNECT_BLOCK slot 


0101 
mF LO counect BLOCK (I, 1) .eq. 0) Go To 20 
10 Continue 


' We should never get here, since the last slot of 
! the CONNECT BLOCK is a spare for sending message 
i disallowing a connect! 

;, Go To 99 

Open user specified MAILBOX 


20 Decode (MBX_MESSAGE_L,100,MBX_MESSAGE) MAILBOX_NAME 
If( .not. OPEN SRAILBOS ( MAILBOX_CHAN,MAILBOX_NAME) ) Go To 99 


' 
' Allocate the connect block. if it is not a duplicate 
i PID, store the PID and mailbox channel in CONNECT_BLOCK 
i If it is a duplicate, store the PID as -1. 
If( CHECK_PID(REQ_PID) 99° 0 ) Then 
aed} =BLBCK(T, 2) 8 RE PID 


Else 
CONNECT _BLOCK(I,1) = 1 ‘Duplicate PID! We will Disconnect 
‘After Acknowledging request 
End If 
CONNECT_BLOCK(I,2) = MAILBOX_CHAN 
If ( I .ge. MAX_PID ) CONNECT = 1 !No room for process! 
99 Return 
100 Format (15X,A) 
End 


wef 


1 
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Integer Function DISCONNECT(REQ_PID) 


This routine disconnects a ereeees from the LABIO system. 

If it is a valid proceeds. all channels still alloca ed are 
dealtoceted. the rasees is acknowledged, the channel assigned 

to the mailbox is deassigned, and the CONNECT_BLOCK entry is removed. 


Include ‘LABCHNDEF .FOR' 
Integer*4 REQ_PID,CHECK_PID 


DISCONNECT = 1 


rr ee 


! Find index into connect block 


CONNECT INDEX = CHECK_PID(REQ_PID) 
If (CONRECT_INDEX .eq. 0 ) Go To 99 !Not connected 


' Deallocate all A/D channels 
Call DEALLOCATE_ALL(REQ_PID) 
! Acknowledge DISCONNECT request 
Call ACKNOWLEDGE (0) 
! Close the mailbox, and zero CONNECT_BLOCK 
Call SYSSDASSGN( %Val (CONNECT _BLOCK(CONNECT_INDEX,2)) ) 
CONNECT_BLOCK(CONNECT_INDEX,1) = 0 
CONNECT’ BLOCK (CONNECT_INDEX, *2) = 0 
DISCONNECT =0 
99 Return 
| 


End 


Integer Function ABORT(REQ_PID) 
Call DISCONNECT( REQ_PID ) 
Return 

End 
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Integer Function ALLOCATE(REQ_PID) 


: This routines allocates an A/D channel to a specific process. 
! The process request a channels by number ej ), specifing 
' the asample rate in stea/senpye. at er size in words, and 

! the number of buffers to acquire cy ). The are can 

' default the rate to 1 tic/sample. RA iy x uffer size to 

the maximum, and the buffer count to 0. If the user reallocates 

' the channel, the defaults are the previous values allocated. 

The channel must been INACTIVE if rt is reallocated. 


Include ‘LABCHNDEF .FOR' 
Include ‘LABMBXDEF.FOR‘ 


Integer*4 REQ re :PID of requesting process 
Integer*4 PARA(4 '4 in nput prereneters 

Integer*2 CONNECT eneer CHECK 

Integer*4 REQ_A »REQ_ Fics, REO _BUF _SIZE,REQ_BUF_COUNT 
Logical CHECK P 


Get index into CONNECT_BLOCK for REQ_PID 
If index is not > 0 , Tgnore request” 


| 
| 
| 
ALLOCATE = 1 Checking first field | 


‘we INDEX = CHECK_PID(REQ_PID) 
( CORNECT_ INDEX le. 0) Go To 99 !Req. Proc not connected! 


' Decode message into four fields 
Decode ( MBX_MESSAGE_L,100,MBX_MESSAGE) PARM 
REQ -A0. wm = PARM(1) ‘Requested A/D channel is first parm 
REQ_TICS = el 'Tics/sample is 2nd 
REQ_BUF_SIZE= PARM(3) ‘Buffer size is 53rd 
REQ” BUF — COUNT=PARM(4) ‘Number of buffers is 4th 


ALLOCATE = 2 'Check next parameter (channel number) 


Valid channel numbers are 1-16 
If (REQ_AD_CHAN .lt. 1 .or. REQ_AD_CHAN .gt. 16) Go To 99 


Requested channel must not allocated, or 
allocated to the requesting process 


| 
if ( AD_BLOCK(2,REQ_AD_CHAN) .ne. 0 .and. | 
| 


AD-BLOCK ( ;REQ “AD-CHAN) .ne. REQ “PID ) Go To 99 


The channel must not be act 
If (AD_BLOCK(1,REQ “4D. ye aN) -gt. INACTIVE ) Go To 99 
| 


ALLOCATE = 3 'Checking next parm (Tics/sample) 
! Tics/sample must be between 1 and 2°31-1 


K 11 
LABIOCON.FOR; 1 16-SEP-1984 17:09: 2 -79 Page 14 


If( snot. CHECK -PARM( REG TICS, AD_BLOCK(3 REQ _AD_CHAN), 
1 »'TFFFFFFFYX,1) ) 60 To 99 


ALLOCATE = 4 ‘Checking parmeter (Buffer size) 


Buffer size between 1 and MAX_8UF_SIZE 


If( snot. CHECK ~PARM(REQ Sut SIZE,AD_BLOCK(4,REQ_AD_CHAN), 
1 _BOF_SIZE,MAX_BUF_SIZET )"~Go To 99 


ALLOCATE = 5 : Setohiann next parameter (number of buffers) 


! Number of buffers to eee must be between 1 and 2°31-1, or 
! zero to indicate no Lim 


If ( .mot. CHECK -PARM(REQ BUF COUNT AD oPLOEK Ce REQ_AD_CHAN),1, 
1 7FFFFFFF’x,0) ) o 99 


ALLOCATE = 0 ‘Everything is acceptable 
Enter info into AD_BLOCK 
AD_BLOCK(1,REQ_AD_CHAN) = 0 ‘Lock the data base 
Clear associated event flags 
Call SYSSCLREF(ZVal( EF_NOTIFY_OFF + REQ_AD we bs ) 


Call SYSSCLREF(Xval( EF_ACTIVITY_OFF + REQ AD C Re 
Call SYSSCLREF(%val( EF-STATUS_OFF + REQ WAB_ CAAN’) 


AD_BLOCK(2,REQ_AD_CHAN) 
R 'Tics/sample 


| 
| 
REQ_PID ‘Requesting PID 
REQ-TICS 
REQ_BUF_SIZE 'Requested buffer size 

| 


AD_BLOCK(5,REQ_AD_ ) = REQ_BUF_ COUNT ‘Number of buffers to acquire 
AD_BLOCK(6,REQ_AD_CHAN) = 'No buffers acquired 
AD_BLOCK(7,REQ_AD_CHAN) = iNo data buffer available 
AD_BLOCK(8,REQ_AD_CHAN) = 0 ‘Number elements in last buf 
AD_BLOCK(9,REQ CHAN) = 1 ‘Current buffer index 
ADBLOCK(16,REG_AD_CHAN) = 0 ‘Current buffer count 
AD-BLOCK(11,REQ_AD_CHAN) = 1 'Tics ponstanne 
AD_BLOCK(12 REQ, AD-CHAN) = 0 ‘Offset t9 next data point 
AD-BLOCK(1,REQ_AD_CHAN) = INACTIVE iChannel is inactive 

; Return 

Error return | 

99 Return ‘Return to caller 


100 Format(15X,41) 
End 


Integer Function DEALLOCATE(REQ_PID) 


! This routine deallocates a channel preytously allocated by 
! a process. The channel must be INACTIVE when deallocated. 


Include *LABCHNDEF .FOR‘ 
Include ‘LABMBXDEF.FOR' 


Integer*4 REQ P 'PID of requesting process 
Integert2 CONNECT INDEX, CHECK_PID 
Integer*4 REQ_AD_CHA 


' Get index into we BLOCK for REQ_PID 
! If index is not > 0 , Tgnore request 


DEALLOCATE = 1 Checking first field 


CONNECT INDEX = CHECK _PID(PID) 
If ( CONNECT_INDEX .l@. 0 ) Go To 99 


DEALLOCATE = 2 
Decode (MBX_MESSAGE_L,100,MBX_MESSAGE) REQ_AD_CHAN 
! Valid channel numbers are 1-16 
If (REQ_AD_CHAN .Lt. 1 .or. REQ_AD_CHAN .gt. 16) Go To 99 


! Does omel process own the channel? 
DEALLOCATE = 21 


If (AD_BLOCK(2,REQ_AD_CHAN) .ne. REQ_PID ) Go To 99 


! Is the channel inactive, clear the channel parameters 
DEALLOCATE = 22 


If ( AD _BLOCK(1,REQ_AD_CHAN) .ne. INACTIVE ) Go to 99 
Call AD_CANCEL (REQ_AD_CHAN) 

DEALLOCATE = 0 ‘Everything OK 

Return 


ERROR return 


2) Return 
' 


i This entry point is used to deallocate all channels 
' allocated to a specific process. 


Entry DEALLOCATE_ALL(REQ_PID) 
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' Valid PID? 
ECT I wo X = peeck. PI mre? 
CEORNC ET INDEX’ cme /0 > 
' Look x Gf via y N—— & eee to process 
' and te + = thas 1/0 eet t Ab cH 
MAX_AD_ CHANNEL 
0 ; ~ ~BLOCK 2, AD * CHANT -@q. REQ PID ) Call AD_CANCEL (AD_CHAN) 


DEALLOCATE = 1 | 
| 

ie | 
—nbEALLOCATE, ALL = 0 


10 


Return 
Format(15X,115) 
End 


N 
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Integer*4 Function AD_CANCEL( CHANNEL ) 
' Clears the parameter table associated with A/D channel 


Include ‘LABCHNDEF.FOR' 
Integer CHANNEL 


AD_CANCEL = 1 ‘Assume error 
Legal channel numbers are 1-16 
If ( CHANNEL .ge. 1 .and. CHANNEL .le. 16 ) Then 
Zero the AD_BLOCK for this channel 


Do 10 j=l, 16 'Clear everthing 
10 AD_BLOCK(J, CHANNEL ) = 0 
: Pete NCEL = 0 ‘Everything ok 


! Clear associated event flags 


Call SYSSCLREF(XVal( EF_NOTIFY_OFF + CHANNEL ) 
Call SYSSCLREF(%Val( EF-ACTIVITY_OFF + CHANNEL ) ) 
Call SYSSCLREF(2ZVal( EF-STATUS_OFF + CHANNEL ) ) 


99 Return 
End 


17 
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Logical Function CHECK_PARM(IVAL,OVAL ,MIN,MAX,DEF AULT) 
cone SE: and cotere i an » neue ahoreneter (IVAL) 
VAL Bg yt t to M MAX, returning TRUE or FALSE. 
VAL is - is not zero WAL ee “ov VAL 
VAL is a OVAL is zero, IVAL = DEFAULT 

Integer*4 IVAL,OVAL,MIN,MAX,DEF AULT 
CHECK_PARM = .false. ‘assume the worst 


If CIVAL .ne. 0 ) The 
by IVAL .lt. MIN sors IVAL .gt. MAX) Go To 99 


if (OVAL .ne. 0 ) Then 
IVAL = OVAL 


lse 
IVAL = DEFAULT 
End If 
End If 
CHECK_PARM = .true. 
99 Return 


END 
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Integer Function CHECK_PID(PID) 


$s reste checks to see if a PID is in CONNECT 9: % 
it is, the INDEX into CONNECT BLOCK is returned. 
isn't, 6" ‘s returned 


Include ‘LABCHNDEF.FOR' 
Integer*4 PID 


' Thi 
‘ if 
! it 
' Assume PID is not in database 
CHECK_PID = 0 

! If PID is found, return index. 

Do 10 1 = 

If ¢ CONNECT “BLOCKTL. ) eq. PID ) CHECK_PID = I 


10 Continue 


Return 
End 
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